result<-aov(mpg~hp*am,data=mtcars)
result2<-aov(mpg~hp+am,data=mtcars)
anova(result,result2)
